home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / unsqu.tes < prev    next >
Text File  |  1991-07-11  |  5KB  |  188 lines
  1. ! This TECO macro indents TECO code to help make it readable
  2.  
  3. It does NOT handle @-modified commands correctly or caret-preceeded commands.
  4.  
  5. Q-REGISTERS USED:
  6.  
  7.        q-register      usage
  8.  
  9.           .a           true if @-sign modified
  10.           .c  (text)   insert carriage return/line feed
  11.           .d           true if numeric argument
  12.           .i  (text)   insert indenting spaces
  13.           i            indenting level
  14. !
  15.  
  16. [i
  17.  
  18. @^U.c/i
  19. /27:^U.c
  20.  
  21. @^U.i/qi<i    >/27:^U.i
  22.  
  23. 27u.e
  24. 0ui
  25. <
  26.     z-."e1;'
  27.     0u.a
  28.     0u.d
  29.     0u.s
  30. !c!
  31.     0a"ecf<'
  32.     0a-^^^A"ecs^Am.cm.if<'
  33.     0a-^^^B"ec-1u.doc'
  34.     0a-^^^C"ecm.cm.if<'
  35.     0a-^^^D"ecm.cm.if<'
  36.     0a-^^^E"ec-1u.doc'
  37.     0a-^^^G"e2cm.cm.if<'
  38.     0a-8"ec-1u.doc'
  39.     0a-9"es^Eu.em.cm.if<'
  40.     0a-^^^N"ec-1u.doc'
  41.     0a-^^^O"ecm.cm.if<'
  42.     0a-^^^Q"ec-1u.doc'
  43.     0a-^^^R"ecq.d"tm.cm.if<|-1u.doc''
  44.     0a-^^^S"ec-1u.doc'
  45.     0a-^^^T"ecq.d"tm.cm.if<|-1u.doc''
  46.     0a-^^^U"es^Eu.em.cm.if<'
  47.     0a-^^^V"ecm.cm.if<'
  48.     0a-^^^W"ecm.cm.if<'
  49.     0a-^^^X"ecq.d"tm.cm.if<|-1u.doc''
  50.     0a-^^^Z"ec-1u.doc'
  51.     0a-27"ecm.cm.if<'
  52.     0a-^^!"ecs!m.cm.if<'
  53.     0a-^^""e2cm.c%im.if<'
  54.     0a-^^%"e2c-1u.doc'
  55.     0a-^^'"e-4dc-1%im.cm.if<'
  56.     0a-^^@"ec-1q.aoc'
  57.     0a-^^|"e-4dcm.cm.if<'
  58.     0a-^^."ec-1u.doc'
  59.     0a-^^;"ecm.cm.if<'
  60.     0a-^^<"e2cm.c%im.if<'
  61.     0a-^^>"ec-1%im.cm.if<'
  62.     0a-^^["e2cm.cm.if<'
  63.     0a-^^]"e2cm.cm.if<'
  64.     0a-47"g0a-58"lc-1u.doc'
  65.     0a-^^a"ecm.cm.if<'
  66.     0a-^^A"ecm.cm.if<'
  67.     0a-^^b"ec-1u.doc'
  68.     0a-^^B"ec-1u.doc'
  69.     0a-^^c"ecm.cm.if<'
  70.     0a-^^C"ecm.cm.if<'
  71.     0a-^^d"ecm.cm.if<'
  72.     0a-^^D"ecm.cm.if<'
  73.     0a-^^e"eoe'
  74.     0a-^^E"eoe'
  75.     0a-^^f"eof'
  76.     0a-^^F"eof'
  77.     0a-^^g"e2cm.cm.if<'
  78.     0a-^^G"e2cm.cm.if<'
  79.     0a-^^h"ecf<'
  80.     0a-^^H"ecf<'
  81.     0a-^^i"es^Eu.em.cm.if<'
  82.     0a-^^I"es^Eu.em.cm.if<'
  83.     0a-^^j"ecm.cm.if<'
  84.     0a-^^J"ecm.cm.if<'
  85.     0a-^^k"ecm.cm.if<'
  86.     0a-^^K"ecm.cm.if<'
  87.     0a-^^l"ecm.cm.if<'
  88.     0a-^^L"ecm.cm.if<'
  89.     0a-^^m"e2cm.cm.if<'
  90.     0a-^^M"e2cm.cm.if<'
  91.     0a-^^n"es^Eu.em.cm.if<'
  92.     0a-^^N"es^Eu.em.cm.if<'
  93.     0a-^^o"es^Eu.em.cm.if<'
  94.     0a-^^O"es^Eu.em.cm.if<'
  95.     0a-^^q"e2c-1u.doc'
  96.     0a-^^Q"e2c-1u.doc'
  97.     0a-^^r"ecm.cm.if<'
  98.     0a-^^R"ecm.cm.if<'
  99.     0a-^^s"es^Eu.em.cm.if<'
  100.     0a-^^S"es^Eu.em.cm.if<'
  101.     0a-^^t"ecm.cm.if<'
  102.     0a-^^T"ecm.cm.if<'
  103.     0a-^^u"e2cm.cm.if<'
  104.     0a-^^U"e2cm.cm.if<'
  105.     0a-^^v"ecm.cm.if<'
  106.     0a-^^V"ecm.cm.if<'
  107.     0a-^^w"ecm.cm.if<'
  108.     0a-^^W"ecm.cm.if<'
  109.     0a-^^x"e2cm.cm.if<'
  110.     0a-^^X"e2cm.cm.if<'
  111.     0a-^^y"ecm.cm.if<'
  112.     0a-^^Y"ecm.cm.if<'
  113.     0a-^^z"ec-1u.doc'
  114.     0a-^^Z"ec-1u.doc'
  115.     c
  116.     f<
  117. !e!
  118.     c
  119.     0a-^^a"ecm.cm.if<'
  120.     0A-^^a"ecm.cm.if<'
  121.     0a-^^b"es^Eu.em.cm.if<'
  122.     0a-^^B"es^Eu.em.cm.if<'
  123.     0a-^^c"ecm.cm.if<'
  124.     0a-^^C"ecm.cm.if<'
  125.     0a-^^d"ecq.d"tm.cm.if<|-1u.doc''
  126.     0a-^^D"ecq.d"tm.cm.if<|-1u.doc''
  127.     0a-^^f"ecm.cm.if<'
  128.     0a-^^F"ecm.cm.if<'
  129.     0a-^^g"es^Eu.em.cm.if<'
  130.     0a-^^G"es^Eu.em.cm.if<'
  131.     0a-^^h"ecq.d"tm.cm.if<|-1u.doc''
  132.     0a-^^H"ecq.d"tm.cm.if<|-1u.doc''
  133.     0a-^^i"es^Eu.em.cm.if<'
  134.     0a-^^I"es^Eu.em.cm.if<'
  135.     0a-^^j"ec-1u.doc''
  136.     0a-^^J"ec-1u.doc''
  137.     0a-^^k"ecm.cm.if<'
  138.     0a-^^K"ecm.cm.if<'
  139.     0a-^^n"es^Eu.em.cm.if<'
  140.     0a-^^N"es^Eu.em.cm.if<'
  141.     0a-^^o"ec-1u.doc''
  142.     0a-^^O"ec-1u.doc''
  143.     0a-^^p"ecm.cm.if<'
  144.     0a-^^P"ecm.cm.if<'
  145.     0a-^^q"ecm.cm.if<'
  146.     0a-^^Q"ecm.cm.if<'
  147.     0a-^^r"es^Eu.em.cm.if<'
  148.     0a-^^R"es^Eu.em.cm.if<'
  149.     0a-^^s"ecq.d"tm.cm.if<|-1u.doc''
  150.     0a-^^S"ecq.d"tm.cm.if<|-1u.doc''
  151.     0a-^^t"ecq.d"tm.cm.if<|-1u.doc''
  152.     0a-^^T"ecq.d"tm.cm.if<|-1u.doc''
  153.     0a-^^u"ecq.d"tm.cm.if<|-1u.doc''
  154.     0a-^^U"ecq.d"tm.cm.if<|-1u.doc''
  155.     0a-^^v"ecq.d"tm.cm.if<|-1u.doc''
  156.     0a-^^V"ecq.d"tm.cm.if<|-1u.doc''
  157.     0a-^^w"es^Eu.em.cm.if<'
  158.     0a-^^W"es^Eu.em.cm.if<'
  159.     0a-^^x"ecm.cm.if<'
  160.     0a-^^X"ecm.cm.if<'
  161.     c
  162.     f<
  163. !f!
  164.     c
  165.     0a-^^'"ecm.cm.if<'
  166.     0a-^^<"ecm.cm.if<'
  167.     0a-^^>"ecm.cm.if<'
  168.     0a-^^|"ecm.cm.if<'
  169.     0a-^^b"es^Eu.em.cm.if<'
  170.     0a-^^B"es^Eu.em.cm.if<'
  171.     0a-^^c"es^Eu.es^Eu.em.cm.if<'
  172.     0a-^^C"es^Eu.es^Eu.em.cm.if<'
  173.     0a-^^d"es^Eu.em.cm.if<'
  174.     0a-^^D"es^Eu.em.cm.if<'
  175.     0a-^^n"es^Eu.es^Eu.em.cm.if<'
  176.     0a-^^N"es^Eu.es^Eu.em.cm.if<'
  177.     0a-^^r"es^Eu.em.cm.if<'
  178.     0a-^^R"es^Eu.em.cm.if<'
  179.     0a-^^s"es^Eu.es^Eu.em.cm.if<'
  180.     0a-^^S"es^Eu.es^Eu.em.cm.if<'
  181.     0a-^^_"es^Eu.es^Eu.em.cm.if<'
  182.     c
  183. >
  184.  
  185. [i
  186.  
  188.